;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  3-3-2001
;;;	   Edited:  3-3-2001
(DEFUN C:XNGELLIP ()
  (SETQ old_osmode (GETVAR "osmode"))
  (c:mss)
  (dimscl)
  (SETQ ell_size (ureal 1 "" (STRCAT "Pipe size for all " assoc_val " text?") (IF ell_size ell_size 2)))
  (SETQ p_depth (ureal 1 "" "Pipe depth?" (IF p_depth p_depth 3.0)))
  (SETQ ell_wid (MAX (/ dimsc 24.0)(/ ell_size 24.0)))
  (SETQ sscnt 0)
  (WHILE
    (< sscnt (SSLENGTH SS))
    (COMMAND ".ELLIPSE"
             (POLAR(CDR(ASSOC 11(ENTGET(SSNAME SS SSCNT))))(* 1.5 pi)(*(+ 6.5 p_depth)v_fact))
             (STRCAT "@0," (RTOS(- 0(*(/ ell_size 12.00)v_fact))2 2))
             (STRCAT "@" (RTOS ell_wid 2 2) ",0")
    )
    (SETQ SSCNT (1+ SSCNT))
  )
  (SETVAR "osmode" old_osmode)
)